home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 89 / Digital_Talk_89_2009-12-24_Digital_Talk_de_Side_C.d64 / zeilen-stop .db (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  835b  |  24 lines
  1. 1 :rem---zeilenstop
  2. 5 :dima,b,c,d:goto100
  3. 10 :
  4. 20 :h=peek(a):print;:sys65374
  5. 21 pokea,c:sys65374:pokea,d:a=a:a=a:a=a   :ifpeek(b)=.goto21
  6. 22 :pokea,h:i=39:goto30
  7. 25 :
  8. 30 :a=53281:rem--farbwechsel
  9. 31 :b=.:fori=ito.step-1:sys65374:pokea,3:sys65374:pokea,5:next:poke198,.:return
  10. 39 :
  11. 99 :
  12. 100 :print"[158][147] [218]wei [200]intergrundfarben in [194]asic":poke214,10
  13. 101 :print"([196][210][213][197][195][203] [212][193][211][212][197])":a=53281:b=198:c=3:d=4:gosub20
  14. 105 :print" [218]wei [210]ahmenfarben     ":a=53280:b=198:c=3:d=4:gosub20
  15. 110 :print" [218]wei [218]eichensaetze    ":a=53272:b=198:c=21:d=23:gosub20
  16. 120 :print" [218]wei [194]ildschirme      ":a=53272:b=198:c=39:d=23:gosub20
  17. 130 :print" [212]ext und [199]rafikschirm ":a=53265:b=198:c=43:d=27:gosub20
  18. 140 :print" [218]wei [211]chirm-[210]aender   ":a=53270:b=198:c=200:d=192:gosub20
  19. 150 :print" [212]ext+[200]intergrund-[205]odus":a=53265:b=198:c=91:d=27:gosub20
  20. 160 :print" [212]ext+[193]usblend-[205]odus   ":a=53265:b=198:c=255:d=27:gosub20
  21. 175 :poke53265,11:i=60:a=53280:gosub31:poke53265,27
  22. 199 :
  23. 250 :list-22
  24.